home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic1 / pro10 / qcalcdem.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-14  |  1.8 KB  |  84 lines
  1. DECLARE FUNCTION qcalc& (a%, b%, c%, d%, e%, f%)
  2.  
  3. CLEAR                                   '
  4. DEFINT A-Z                              ' default to integers
  5.  
  6.  
  7. CLS
  8.  
  9. LOCATE 3, 10                            ' put up a pseudo work screen
  10. PRINT "Bob's Shooz"
  11.  
  12. FOR x = 1 TO 6
  13.    LOCATE x + 4, 5
  14.    READ d$
  15.    PRINT d$
  16. NEXT x
  17.  
  18. LOCATE 12, 5
  19. PRINT "Total:"
  20.  
  21.  
  22.  
  23. LOCATE 13, 45
  24. PRINT "Weekly Shooz Sales"
  25. FOR x = 1 TO 6
  26.    LOCATE x + 14, 48
  27.    READ d$
  28.    PRINT d$
  29. NEXT x
  30.  
  31. LOCATE 22, 42
  32. PRINT "Total:"
  33.  
  34.  
  35. LOCATE 12, 32
  36. PRINT CHR$(174)
  37.  
  38.  
  39. retval& = qcalc(5, 38, 30, 71, 71, 2)   ' do the calculator
  40. '                       |   |  |   +- beep speed
  41. '                       |   |  +----- calc msgs
  42. '                       |   +-------- calc screen
  43. '                       +------------ calc body
  44.  
  45. LOCATE 12, 35                           '
  46. PRINT " ";
  47.  
  48. amt# = CDBL(retval&)                    ' convert LONG return to DOUBLE
  49. amt# = amt# / 100                       ' make it decimal
  50. LOCATE 12, 22
  51. PRINT USING "###.##"; amt#              ' print it
  52.  
  53.  
  54. 'take out for no pause between demoes
  55. LOCATE 23, 10
  56. PRINT "Press Any Key to Continue"       ' allow for visual appreciation
  57. x$ = INPUT$(1)
  58. LOCATE 23, 10
  59. PRINT SPACE$(30);
  60.  
  61.  
  62. LOCATE 22, 65                           ' prepare for second column
  63. PRINT CHR$(174);                        ' print pointer
  64. retval& = qcalc(3, 5, 30, 71, 71, 7)
  65.  
  66. amt# = CDBL(retval&) / 100              ' convert LONG to FLOAT
  67. LOCATE 22, 50
  68. PRINT USING "####.##"; amt#
  69.  
  70.  
  71.  
  72. SYSTEM
  73.  
  74.  
  75. DATA Ladies Pumps      34.23, 6" Spike Heels   258.54, Men's Loafers     37.62
  76. DATA Sneakers         118.06, Kid's Keds        23.65, Wingtips         187.88
  77.  
  78. DATA Mon   322.45, Tue   429.65, Wed   309.65, Thr   435.76, Fri   879.43
  79. DATA Sat  1398.41, Sun   690.07
  80.  
  81.  
  82.  
  83.  
  84.